home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / CW-PV-10 / PRO-VOTE.PPD < prev    next >
Text File  |  1995-11-15  |  53KB  |  2,075 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 1.00 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     INTEGER    VAR001
  11.     INTEGER    VAR002
  12.     INTEGER    VAR003
  13.     INTEGER    VAR004
  14.     INTEGER    VAR005
  15.     INTEGER    VAR006
  16.     INTEGER    VAR007
  17.     INTEGER    VAR008
  18.     INTEGER    VAR009
  19.     INTEGER    VAR010
  20.     INTEGER    VAR011
  21.     INTEGER    VAR012
  22.     INTEGER    VAR013
  23.     INTEGER    VAR014
  24.     INTEGER    VAR015
  25.     INTEGER    VAR016
  26.     INTEGER    VAR017
  27.     INTEGER    VAR018
  28.     INTEGER    VAR019
  29.     INTEGER    VAR020
  30.     INTEGER    VAR021
  31.     STRING     VAR022
  32.     STRING     VAR023
  33.     STRING     VAR024
  34.     STRING     VAR025
  35.     STRING     VAR026
  36.     STRING     VAR027
  37.     STRING     VAR028
  38.     STRING     VAR029
  39.     STRING     VAR030
  40.     STRING     VAR031
  41.     STRING     VAR032
  42.     STRING     VAR033
  43.     STRING     VAR034
  44.     STRING     VAR035
  45.     STRING     VAR036
  46.     STRING     VAR037
  47.     STRING     VAR038
  48.     STRING     VAR039
  49.     STRING     VAR040
  50.     STRING     VAR041
  51.     STRING     VAR042
  52.     STRING     VAR043
  53.     STRING     VAR044
  54.     STRING     VAR045
  55.     STRING     VAR046
  56.     STRING     VAR047
  57.     STRING     VAR048
  58.     STRING     VAR049
  59.  
  60. ;------------------------------------------------------------------------------
  61.  
  62.     GETUSER 
  63.     LET VAR043="1.0"
  64.     LET VAR044=U_NAME()
  65.     LET VAR016=36
  66.     LET VAR019=30147
  67.     FOPEN 1,PPEPATH()+"PRO-VOTE.CNF",O_RD,S_DN
  68.     FGET 1,VAR022
  69.     FGET 1,VAR020
  70.     FGET 1,VAR018
  71.     FGET 1,VAR049
  72.     FGET 1,VAR005
  73.     FCLOSE 1
  74.     TOKENIZE VAR022
  75.     GETTOKEN VAR030
  76.     GETTOKEN VAR031
  77.     IF (!(VAR020=0)) GOTO LABEL000
  78.     LET VAR032="Y"
  79.     GOTO LABEL003
  80.  
  81. :LABEL000
  82.     GOTO LABEL001
  83.  
  84. :LABEL001
  85.     LET VAR027=LEFT(VAR030,1)
  86.     LET VAR028=LEFT(VAR031,2)
  87.     LET VAR029=VAR027+VAR028
  88.     IF (VAR027="A") LET VAR021=1934
  89.     IF (VAR027="B") LET VAR021=2859
  90.     IF (VAR027="C") LET VAR021=3743
  91.     IF (VAR027="D") LET VAR021=4660
  92.     IF (VAR027="E") LET VAR021=5534
  93.     IF (VAR027="F") LET VAR021=6471
  94.     IF (VAR027="G") LET VAR021=7325
  95.     IF (VAR027="H") LET VAR021=8287
  96.     IF (VAR027="I") LET VAR021=9119
  97.     IF (VAR027="J") LET VAR021=1096
  98.     IF (VAR027="K") LET VAR021=2928
  99.     IF (VAR027="L") LET VAR021=3885
  100.     IF (VAR027="M") LET VAR021=4737
  101.     IF (VAR027="N") LET VAR021=5674
  102.     IF (VAR027="O") LET VAR021=6546
  103.     IF (VAR027="P") LET VAR021=7463
  104.     IF (VAR027="Q") LET VAR021=8355
  105.     IF (VAR027="R") LET VAR021=9242
  106.     IF (VAR027="S") LET VAR021=1164
  107.     IF (VAR027="T") LET VAR021=2031
  108.     IF (VAR027="U") LET VAR021=3973
  109.     IF (VAR027="V") LET VAR021=4820
  110.     IF (VAR027="W") LET VAR021=5782
  111.     IF (VAR027="X") LET VAR021=6619
  112.     IF (VAR027="Y") LET VAR021=7591
  113.     IF (VAR027="Z") LET VAR021=8408
  114.     LET VAR017=S2I(VAR029,VAR016)+VAR020+VAR019+VAR021
  115.     IF (!(VAR018=VAR017)) GOTO LABEL002
  116.     IF (LEN(VAR020)=1) LET VAR024="000"
  117.     IF (LEN(VAR020)=2) LET VAR024="00"
  118.     IF (LEN(VAR020)=3) LET VAR024="0"
  119.     IF (LEN(VAR020)=4) LET VAR024=""
  120.     LET VAR025=VAR020
  121.     LET VAR026=VAR024+VAR025
  122.     IF (LEN(VAR022)=30) LET VAR023=""
  123.     IF (LEN(VAR022)=29) LET VAR023=""
  124.     IF (LEN(VAR022)=28) LET VAR023=" "
  125.     IF (LEN(VAR022)=27) LET VAR023=" "
  126.     IF (LEN(VAR022)=26) LET VAR023="  "
  127.     IF (LEN(VAR022)=25) LET VAR023="  "
  128.     IF (LEN(VAR022)=24) LET VAR023="   "
  129.     IF (LEN(VAR022)=23) LET VAR023="   "
  130.     IF (LEN(VAR022)=22) LET VAR023="    "
  131.     IF (LEN(VAR022)=21) LET VAR023="    "
  132.     IF (LEN(VAR022)=20) LET VAR023="     "
  133.     IF (LEN(VAR022)=19) LET VAR023="     "
  134.     IF (LEN(VAR022)=18) LET VAR023="      "
  135.     IF (LEN(VAR022)=17) LET VAR023="      "
  136.     IF (LEN(VAR022)=16) LET VAR023="       "
  137.     IF (LEN(VAR022)=15) LET VAR023="       "
  138.     IF (LEN(VAR022)=14) LET VAR023="        "
  139.     IF (LEN(VAR022)=13) LET VAR023="        "
  140.     IF (LEN(VAR022)=12) LET VAR023="         "
  141.     IF (LEN(VAR022)=11) LET VAR023="         "
  142.     IF (LEN(VAR022)=10) LET VAR023="          "
  143.     IF (LEN(VAR022)=9) LET VAR023="          "
  144.     IF (LEN(VAR022)=8) LET VAR023="           "
  145.     IF (LEN(VAR022)=7) LET VAR023="           "
  146.     IF (LEN(VAR022)=6) LET VAR023="            "
  147.     IF (LEN(VAR022)=5) LET VAR023="            "
  148.     GOTO LABEL003
  149.  
  150. :LABEL002
  151.     CLS 
  152.     PRINTLN 
  153.     PRINTLN "                       @X50┌──────────────────────────────@X5D┐@X07"
  154.     PRINTLN "                       @X50│        @X5BPro-Vote  v1.0        @X5D│@X07"
  155.     PRINTLN "                       @X50│                              @X5D│@X07"
  156.     PRINTLN "                       @X50│      @X5BAborting Operation      @X5D│@X07"
  157.     PRINTLN "                       @X50│                              @X5D│@X07"
  158.     PRINTLN "                       @X50│  @X5BInvalid Registration Code!  @X5D│@X07"
  159.     PRINTLN "                       @X50└@X5D──────────────────────────────┘@X07"
  160.     DELAY 182
  161.     END 
  162.  
  163.  
  164. :LABEL003
  165.     CLS 
  166.     PRINTLN 
  167.     PRINTLN "                       @X50┌──────────────────────────────@X5D┐@X0D"
  168.     PRINTLN "                       @X50│        @X5APro-Vote  v",VAR043,"        @X5D│@X0D"
  169.     PRINTLN "                       @X50│                              @X5D│@X0D"
  170.     IF (!(VAR032="N")) GOTO LABEL004
  171.     PRINTLN "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  172.     PRINTLN "                       @X50│                              @X5D│@X0D"
  173.     PRINTLN "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  174.     PRINTLN "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  175.     PRINTLN "                       @X50└@X5D──────────────────────────────┘@X07"
  176.     BEEP 
  177.     DELAY 125
  178.     GOTO LABEL005
  179.  
  180. :LABEL004
  181.     PRINTLN "                       @X50│          @X5BReg # ",VAR026,"    @POS:55@@X5D│@X07"
  182.     PRINTLN "                       @X50│@X5B",VAR023,VAR022,"@POS:55@@X5D│@X07"
  183.     PRINTLN "                       @X50└@X5D──────────────────────────────┘@X07"
  184.     PRINTLN 
  185.     PRINTLN 
  186.     PRINTLN 
  187.     WAIT 
  188.  
  189. :LABEL005
  190.     CLS 
  191.     DISPFILE VAR049,4+2+1
  192.     LET VAR048=""
  193.     INPUTSTR "A) Answer Questionnaire/Poll or V) View Results",VAR048,11,1,MASK_ALPHA(),2+8
  194.     IF (VAR048="A") GOTO LABEL006
  195.     IF (VAR048="V") GOTO LABEL135
  196.     IF (VAR048="") GOTO LABEL160
  197.     GOTO LABEL005
  198.  
  199. :LABEL006
  200.     LET VAR004=""
  201.     INPUTSTR "Questionnaire/Poll to Answer",VAR004,11,2,MASK_NUM(),2+128
  202.     IF (VAR004>VAR005) GOTO LABEL158
  203.     IF (VAR004=1) GOTO LABEL007
  204.     IF (VAR004=2) GOTO LABEL011
  205.     IF (VAR004=3) GOTO LABEL015
  206.     IF (VAR004=4) GOTO LABEL019
  207.     IF (VAR004=5) GOTO LABEL023
  208.     IF (VAR004=6) GOTO LABEL027
  209.     IF (VAR004=7) GOTO LABEL031
  210.     IF (VAR004=8) GOTO LABEL035
  211.     IF (VAR004=9) GOTO LABEL039
  212.     IF (VAR004=10) GOTO LABEL043
  213.     IF (VAR004=11) GOTO LABEL047
  214.     IF (VAR004=12) GOTO LABEL051
  215.     IF (VAR004=13) GOTO LABEL055
  216.     IF (VAR004=14) GOTO LABEL059
  217.     IF (VAR004=15) GOTO LABEL063
  218.     IF (VAR004=16) GOTO LABEL067
  219.     IF (VAR004=17) GOTO LABEL071
  220.     IF (VAR004=18) GOTO LABEL075
  221.     IF (VAR004=19) GOTO LABEL079
  222.     IF (VAR004=20) GOTO LABEL083
  223.     IF (VAR004=21) GOTO LABEL087
  224.     IF (VAR004=22) GOTO LABEL091
  225.     IF (VAR004=23) GOTO LABEL095
  226.     IF (VAR004=24) GOTO LABEL099
  227.     IF (VAR004=25) GOTO LABEL103
  228.     IF (VAR004=26) GOTO LABEL107
  229.     IF (VAR004=27) GOTO LABEL111
  230.     IF (VAR004=28) GOTO LABEL115
  231.     IF (VAR004=29) GOTO LABEL119
  232.     IF (VAR004=30) GOTO LABEL123
  233.     IF (VAR004=31) GOTO LABEL127
  234.     IF (VAR004=32) GOTO LABEL131
  235.  
  236. :LABEL007
  237.     FOPEN 1,PPEPATH()+"Q01.PV",O_RD,S_DN
  238.     FGET 1,VAR046
  239.     FGET 1,VAR002
  240.     FCLOSE 1
  241.     IF (!EXIST(PPEPATH()+"Q01N.PV")) GOTO LABEL010
  242.     FOPEN 1,PPEPATH()+"Q01N.PV",O_RD,S_DN
  243.     LET VAR001=1
  244.  
  245. :LABEL008
  246.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL009
  247.     FGET 1,VAR045
  248.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  249.     LET VAR001=VAR001+1
  250.     GOTO LABEL008
  251.  
  252. :LABEL009
  253.     FCLOSE 1
  254.     GOTO LABEL010
  255.  
  256. :LABEL010
  257.     FOPEN 1,PPEPATH()+"Q01.PV",O_RD,S_DN
  258.     GOSUB LABEL195
  259.     LET VAR004=""
  260.     GOSUB LABEL197
  261.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  262.     IF (VAR004>VAR003) GOTO LABEL159
  263.     IF (VAR004="0") GOTO LABEL005
  264.     IF (VAR004="") GOTO LABEL005
  265.     FAPPEND 1,PPEPATH()+"Q01N.PV",O_RW,S_DB
  266.     FPUTLN 1,VAR044
  267.     FCLOSE 1
  268.     FOPEN 1,PPEPATH()+"Q01.PV",O_RD,S_DN
  269.     GOSUB LABEL195
  270.     LET VAR002=VAR002+1
  271.     GOSUB LABEL198
  272.     FOPEN 1,PPEPATH()+"Q01.PV",O_WR,S_DN
  273.     GOSUB LABEL196
  274.     GOTO LABEL005
  275.  
  276. :LABEL011
  277.     IF (VAR032="N") GOTO LABEL157
  278.     FOPEN 1,PPEPATH()+"Q02.PV",O_RD,S_DN
  279.     FGET 1,VAR046
  280.     FGET 1,VAR002
  281.     FCLOSE 1
  282.     IF (!EXIST(PPEPATH()+"Q02N.PV")) GOTO LABEL014
  283.     FOPEN 1,PPEPATH()+"Q02N.PV",O_RD,S_DN
  284.     LET VAR001=1
  285.  
  286. :LABEL012
  287.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL013
  288.     FGET 1,VAR045
  289.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  290.     LET VAR001=VAR001+1
  291.     GOTO LABEL012
  292.  
  293. :LABEL013
  294.     FCLOSE 1
  295.     GOTO LABEL014
  296.  
  297. :LABEL014
  298.     FOPEN 1,PPEPATH()+"Q02.PV",O_RD,S_DN
  299.     GOSUB LABEL195
  300.     LET VAR004=""
  301.     GOSUB LABEL197
  302.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  303.     IF (VAR004>VAR003) GOTO LABEL159
  304.     IF (VAR004="") GOTO LABEL005
  305.     FAPPEND 1,PPEPATH()+"Q02N.PV",O_RW,S_DB
  306.     FPUTLN 1,VAR044
  307.     FCLOSE 1
  308.     FOPEN 1,PPEPATH()+"Q02.PV",O_RD,S_DN
  309.     GOSUB LABEL195
  310.     LET VAR002=VAR002+1
  311.     GOSUB LABEL198
  312.     FOPEN 1,PPEPATH()+"Q02.PV",O_WR,S_DN
  313.     GOSUB LABEL196
  314.     GOTO LABEL005
  315.  
  316. :LABEL015
  317.     IF (VAR032="N") GOTO LABEL157
  318.     FOPEN 1,PPEPATH()+"Q03.PV",O_RD,S_DN
  319.     FGET 1,VAR046
  320.     FGET 1,VAR002
  321.     FCLOSE 1
  322.     IF (!EXIST(PPEPATH()+"Q03N.PV")) GOTO LABEL018
  323.     FOPEN 1,PPEPATH()+"Q03N.PV",O_RD,S_DN
  324.     LET VAR001=1
  325.  
  326. :LABEL016
  327.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL017
  328.     FGET 1,VAR045
  329.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  330.     LET VAR001=VAR001+1
  331.     GOTO LABEL016
  332.  
  333. :LABEL017
  334.     FCLOSE 1
  335.     GOTO LABEL018
  336.  
  337. :LABEL018
  338.     FOPEN 1,PPEPATH()+"Q03.PV",O_RD,S_DN
  339.     GOSUB LABEL195
  340.     LET VAR004=""
  341.     GOSUB LABEL197
  342.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  343.     IF (VAR004>VAR003) GOTO LABEL159
  344.     IF (VAR004="") GOTO LABEL005
  345.     FAPPEND 1,PPEPATH()+"Q03N.PV",O_RW,S_DB
  346.     FPUTLN 1,VAR044
  347.     FCLOSE 1
  348.     FOPEN 1,PPEPATH()+"Q03.PV",O_RD,S_DN
  349.     GOSUB LABEL195
  350.     LET VAR002=VAR002+1
  351.     GOSUB LABEL198
  352.     FOPEN 1,PPEPATH()+"Q03.PV",O_WR,S_DN
  353.     GOSUB LABEL196
  354.     GOTO LABEL005
  355.  
  356. :LABEL019
  357.     IF (VAR032="N") GOTO LABEL157
  358.     FOPEN 1,PPEPATH()+"Q04.PV",O_RD,S_DN
  359.     FGET 1,VAR046
  360.     FGET 1,VAR002
  361.     FCLOSE 1
  362.     IF (!EXIST(PPEPATH()+"Q04N.PV")) GOTO LABEL022
  363.     FOPEN 1,PPEPATH()+"Q04N.PV",O_RD,S_DN
  364.     LET VAR001=1
  365.  
  366. :LABEL020
  367.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL021
  368.     FGET 1,VAR045
  369.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  370.     LET VAR001=VAR001+1
  371.     GOTO LABEL020
  372.  
  373. :LABEL021
  374.     FCLOSE 1
  375.     GOTO LABEL022
  376.  
  377. :LABEL022
  378.     FOPEN 1,PPEPATH()+"Q04.PV",O_RD,S_DN
  379.     GOSUB LABEL195
  380.     LET VAR004=""
  381.     GOSUB LABEL197
  382.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  383.     IF (VAR004>VAR003) GOTO LABEL159
  384.     IF (VAR004="") GOTO LABEL005
  385.     FAPPEND 1,PPEPATH()+"Q04N.PV",O_RW,S_DB
  386.     FPUTLN 1,VAR044
  387.     FCLOSE 1
  388.     FOPEN 1,PPEPATH()+"Q04.PV",O_RD,S_DN
  389.     GOSUB LABEL195
  390.     LET VAR002=VAR002+1
  391.     GOSUB LABEL198
  392.     FOPEN 1,PPEPATH()+"Q04.PV",O_WR,S_DN
  393.     GOSUB LABEL196
  394.     GOTO LABEL005
  395.  
  396. :LABEL023
  397.     IF (VAR032="N") GOTO LABEL157
  398.     FOPEN 1,PPEPATH()+"Q05.PV",O_RD,S_DN
  399.     FGET 1,VAR046
  400.     FGET 1,VAR002
  401.     FCLOSE 1
  402.     IF (!EXIST(PPEPATH()+"Q05N.PV")) GOTO LABEL026
  403.     FOPEN 1,PPEPATH()+"Q05N.PV",O_RD,S_DN
  404.     LET VAR001=1
  405.  
  406. :LABEL024
  407.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL025
  408.     FGET 1,VAR045
  409.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  410.     LET VAR001=VAR001+1
  411.     GOTO LABEL024
  412.  
  413. :LABEL025
  414.     FCLOSE 1
  415.     GOTO LABEL026
  416.  
  417. :LABEL026
  418.     FOPEN 1,PPEPATH()+"Q05.PV",O_RD,S_DN
  419.     GOSUB LABEL195
  420.     LET VAR004=""
  421.     GOSUB LABEL197
  422.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  423.     IF (VAR004>VAR003) GOTO LABEL159
  424.     IF (VAR004="") GOTO LABEL005
  425.     FAPPEND 1,PPEPATH()+"Q05N.PV",O_RW,S_DB
  426.     FPUTLN 1,VAR044
  427.     FCLOSE 1
  428.     FOPEN 1,PPEPATH()+"Q05.PV",O_RD,S_DN
  429.     GOSUB LABEL195
  430.     LET VAR002=VAR002+1
  431.     GOSUB LABEL198
  432.     FOPEN 1,PPEPATH()+"Q05.PV",O_WR,S_DN
  433.     GOSUB LABEL196
  434.     GOTO LABEL005
  435.  
  436. :LABEL027
  437.     IF (VAR032="N") GOTO LABEL157
  438.     FOPEN 1,PPEPATH()+"Q06.PV",O_RD,S_DN
  439.     FGET 1,VAR046
  440.     FGET 1,VAR002
  441.     FCLOSE 1
  442.     IF (!EXIST(PPEPATH()+"Q06N.PV")) GOTO LABEL030
  443.     FOPEN 1,PPEPATH()+"Q06N.PV",O_RD,S_DN
  444.     LET VAR001=1
  445.  
  446. :LABEL028
  447.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL029
  448.     FGET 1,VAR045
  449.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  450.     LET VAR001=VAR001+1
  451.     GOTO LABEL028
  452.  
  453. :LABEL029
  454.     FCLOSE 1
  455.     GOTO LABEL030
  456.  
  457. :LABEL030
  458.     FOPEN 1,PPEPATH()+"Q06.PV",O_RD,S_DN
  459.     GOSUB LABEL195
  460.     LET VAR004=""
  461.     GOSUB LABEL197
  462.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  463.     IF (VAR004>VAR003) GOTO LABEL159
  464.     IF (VAR004="0") GOTO LABEL005
  465.     IF (VAR004="") GOTO LABEL005
  466.     FAPPEND 1,PPEPATH()+"Q06N.PV",O_RW,S_DB
  467.     FPUTLN 1,VAR044
  468.     FCLOSE 1
  469.     FOPEN 1,PPEPATH()+"Q06.PV",O_RD,S_DN
  470.     GOSUB LABEL195
  471.     LET VAR002=VAR002+1
  472.     GOSUB LABEL198
  473.     FOPEN 1,PPEPATH()+"Q06.PV",O_WR,S_DN
  474.     GOSUB LABEL196
  475.     GOTO LABEL005
  476.  
  477. :LABEL031
  478.     IF (VAR032="N") GOTO LABEL157
  479.     FOPEN 1,PPEPATH()+"Q07.PV",O_RD,S_DN
  480.     FGET 1,VAR046
  481.     FGET 1,VAR002
  482.     FCLOSE 1
  483.     IF (!EXIST(PPEPATH()+"Q07N.PV")) GOTO LABEL034
  484.     FOPEN 1,PPEPATH()+"Q07N.PV",O_RD,S_DN
  485.     LET VAR001=1
  486.  
  487. :LABEL032
  488.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL033
  489.     FGET 1,VAR045
  490.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  491.     LET VAR001=VAR001+1
  492.     GOTO LABEL032
  493.  
  494. :LABEL033
  495.     FCLOSE 1
  496.     GOTO LABEL034
  497.  
  498. :LABEL034
  499.     FOPEN 1,PPEPATH()+"Q07.PV",O_RD,S_DN
  500.     GOSUB LABEL195
  501.     LET VAR004=""
  502.     GOSUB LABEL197
  503.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  504.     IF (VAR004>VAR003) GOTO LABEL159
  505.     IF (VAR004="") GOTO LABEL005
  506.     FAPPEND 1,PPEPATH()+"Q07N.PV",O_RW,S_DB
  507.     FPUTLN 1,VAR044
  508.     FCLOSE 1
  509.     FOPEN 1,PPEPATH()+"Q07.PV",O_RD,S_DN
  510.     GOSUB LABEL195
  511.     LET VAR002=VAR002+1
  512.     GOSUB LABEL198
  513.     FOPEN 1,PPEPATH()+"Q07.PV",O_WR,S_DN
  514.     GOSUB LABEL196
  515.     GOTO LABEL005
  516.  
  517. :LABEL035
  518.     IF (VAR032="N") GOTO LABEL157
  519.     FOPEN 1,PPEPATH()+"Q08.PV",O_RD,S_DN
  520.     FGET 1,VAR046
  521.     FGET 1,VAR002
  522.     FCLOSE 1
  523.     IF (!EXIST(PPEPATH()+"Q08N.PV")) GOTO LABEL038
  524.     FOPEN 1,PPEPATH()+"Q08N.PV",O_RD,S_DN
  525.     LET VAR001=1
  526.  
  527. :LABEL036
  528.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL037
  529.     FGET 1,VAR045
  530.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  531.     LET VAR001=VAR001+1
  532.     GOTO LABEL036
  533.  
  534. :LABEL037
  535.     FCLOSE 1
  536.     GOTO LABEL038
  537.  
  538. :LABEL038
  539.     FOPEN 1,PPEPATH()+"Q08.PV",O_RD,S_DN
  540.     GOSUB LABEL195
  541.     LET VAR004=""
  542.     GOSUB LABEL197
  543.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  544.     IF (VAR004>VAR003) GOTO LABEL159
  545.     IF (VAR004="") GOTO LABEL005
  546.     FAPPEND 1,PPEPATH()+"Q08N.PV",O_RW,S_DB
  547.     FPUTLN 1,VAR044
  548.     FCLOSE 1
  549.     FOPEN 1,PPEPATH()+"Q08.PV",O_RD,S_DN
  550.     GOSUB LABEL195
  551.     LET VAR002=VAR002+1
  552.     GOSUB LABEL198
  553.     FOPEN 1,PPEPATH()+"Q08.PV",O_WR,S_DN
  554.     GOSUB LABEL196
  555.     GOTO LABEL005
  556.  
  557. :LABEL039
  558.     IF (VAR032="N") GOTO LABEL157
  559.     FOPEN 1,PPEPATH()+"Q09.PV",O_RD,S_DN
  560.     FGET 1,VAR046
  561.     FGET 1,VAR002
  562.     FCLOSE 1
  563.     IF (!EXIST(PPEPATH()+"Q09N.PV")) GOTO LABEL042
  564.     FOPEN 1,PPEPATH()+"Q09N.PV",O_RD,S_DN
  565.     LET VAR001=1
  566.  
  567. :LABEL040
  568.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL041
  569.     FGET 1,VAR045
  570.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  571.     LET VAR001=VAR001+1
  572.     GOTO LABEL040
  573.  
  574. :LABEL041
  575.     FCLOSE 1
  576.     GOTO LABEL042
  577.  
  578. :LABEL042
  579.     FOPEN 1,PPEPATH()+"Q09.PV",O_RD,S_DN
  580.     GOSUB LABEL195
  581.     LET VAR004=""
  582.     GOSUB LABEL197
  583.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  584.     IF (VAR004>VAR003) GOTO LABEL159
  585.     IF (VAR004="") GOTO LABEL005
  586.     FAPPEND 1,PPEPATH()+"Q09N.PV",O_RW,S_DB
  587.     FPUTLN 1,VAR044
  588.     FCLOSE 1
  589.     FOPEN 1,PPEPATH()+"Q09.PV",O_RD,S_DN
  590.     GOSUB LABEL195
  591.     LET VAR002=VAR002+1
  592.     GOSUB LABEL198
  593.     FOPEN 1,PPEPATH()+"Q09.PV",O_WR,S_DN
  594.     GOSUB LABEL196
  595.     GOTO LABEL005
  596.  
  597. :LABEL043
  598.     IF (VAR032="N") GOTO LABEL157
  599.     FOPEN 1,PPEPATH()+"Q10.PV",O_RD,S_DN
  600.     FGET 1,VAR046
  601.     FGET 1,VAR002
  602.     FCLOSE 1
  603.     IF (!EXIST(PPEPATH()+"Q10N.PV")) GOTO LABEL046
  604.     FOPEN 1,PPEPATH()+"Q10N.PV",O_RD,S_DN
  605.     LET VAR001=1
  606.  
  607. :LABEL044
  608.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL045
  609.     FGET 1,VAR045
  610.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  611.     LET VAR001=VAR001+1
  612.     GOTO LABEL044
  613.  
  614. :LABEL045
  615.     FCLOSE 1
  616.     GOTO LABEL046
  617.  
  618. :LABEL046
  619.     FOPEN 1,PPEPATH()+"Q10.PV",O_RD,S_DN
  620.     GOSUB LABEL195
  621.     LET VAR004=""
  622.     GOSUB LABEL197
  623.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  624.     IF (VAR004>VAR003) GOTO LABEL159
  625.     IF (VAR004="") GOTO LABEL005
  626.     FAPPEND 1,PPEPATH()+"Q10N.PV",O_RW,S_DB
  627.     FPUTLN 1,VAR044
  628.     FCLOSE 1
  629.     FOPEN 1,PPEPATH()+"Q10.PV",O_RD,S_DN
  630.     GOSUB LABEL195
  631.     LET VAR002=VAR002+1
  632.     GOSUB LABEL198
  633.     FOPEN 1,PPEPATH()+"Q10.PV",O_WR,S_DN
  634.     GOSUB LABEL196
  635.     GOTO LABEL005
  636.  
  637. :LABEL047
  638.     IF (VAR032="N") GOTO LABEL157
  639.     FOPEN 1,PPEPATH()+"Q11.PV",O_RD,S_DN
  640.     FGET 1,VAR046
  641.     FGET 1,VAR002
  642.     FCLOSE 1
  643.     IF (!EXIST(PPEPATH()+"Q11N.PV")) GOTO LABEL050
  644.     FOPEN 1,PPEPATH()+"Q11N.PV",O_RD,S_DN
  645.     LET VAR001=1
  646.  
  647. :LABEL048
  648.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL049
  649.     FGET 1,VAR045
  650.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  651.     LET VAR001=VAR001+1
  652.     GOTO LABEL048
  653.  
  654. :LABEL049
  655.     FCLOSE 1
  656.     GOTO LABEL050
  657.  
  658. :LABEL050
  659.     FOPEN 1,PPEPATH()+"Q11.PV",O_RD,S_DN
  660.     GOSUB LABEL195
  661.     LET VAR004=""
  662.     GOSUB LABEL197
  663.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  664.     IF (VAR004>VAR003) GOTO LABEL159
  665.     IF (VAR004="0") GOTO LABEL005
  666.     IF (VAR004="") GOTO LABEL005
  667.     FAPPEND 1,PPEPATH()+"Q11N.PV",O_RW,S_DB
  668.     FPUTLN 1,VAR044
  669.     FCLOSE 1
  670.     FOPEN 1,PPEPATH()+"Q11.PV",O_RD,S_DN
  671.     GOSUB LABEL195
  672.     LET VAR002=VAR002+1
  673.     GOSUB LABEL198
  674.     FOPEN 1,PPEPATH()+"Q11.PV",O_WR,S_DN
  675.     GOSUB LABEL196
  676.     GOTO LABEL005
  677.  
  678. :LABEL051
  679.     IF (VAR032="N") GOTO LABEL157
  680.     FOPEN 1,PPEPATH()+"Q12.PV",O_RD,S_DN
  681.     FGET 1,VAR046
  682.     FGET 1,VAR002
  683.     FCLOSE 1
  684.     IF (!EXIST(PPEPATH()+"Q12N.PV")) GOTO LABEL054
  685.     FOPEN 1,PPEPATH()+"Q12N.PV",O_RD,S_DN
  686.     LET VAR001=1
  687.  
  688. :LABEL052
  689.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL053
  690.     FGET 1,VAR045
  691.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  692.     LET VAR001=VAR001+1
  693.     GOTO LABEL052
  694.  
  695. :LABEL053
  696.     FCLOSE 1
  697.     GOTO LABEL054
  698.  
  699. :LABEL054
  700.     FOPEN 1,PPEPATH()+"Q12.PV",O_RD,S_DN
  701.     GOSUB LABEL195
  702.     LET VAR004=""
  703.     GOSUB LABEL197
  704.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  705.     IF (VAR004>VAR003) GOTO LABEL159
  706.     IF (VAR004="") GOTO LABEL005
  707.     FAPPEND 1,PPEPATH()+"Q12N.PV",O_RW,S_DB
  708.     FPUTLN 1,VAR044
  709.     FCLOSE 1
  710.     FOPEN 1,PPEPATH()+"Q12.PV",O_RD,S_DN
  711.     GOSUB LABEL195
  712.     LET VAR002=VAR002+1
  713.     GOSUB LABEL198
  714.     FOPEN 1,PPEPATH()+"Q12.PV",O_WR,S_DN
  715.     GOSUB LABEL196
  716.     GOTO LABEL005
  717.  
  718. :LABEL055
  719.     IF (VAR032="N") GOTO LABEL157
  720.     FOPEN 1,PPEPATH()+"Q13.PV",O_RD,S_DN
  721.     FGET 1,VAR046
  722.     FGET 1,VAR002
  723.     FCLOSE 1
  724.     IF (!EXIST(PPEPATH()+"Q13N.PV")) GOTO LABEL058
  725.     FOPEN 1,PPEPATH()+"Q13N.PV",O_RD,S_DN
  726.     LET VAR001=1
  727.  
  728. :LABEL056
  729.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL057
  730.     FGET 1,VAR045
  731.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  732.     LET VAR001=VAR001+1
  733.     GOTO LABEL056
  734.  
  735. :LABEL057
  736.     FCLOSE 1
  737.     GOTO LABEL058
  738.  
  739. :LABEL058
  740.     FOPEN 1,PPEPATH()+"Q13.PV",O_RD,S_DN
  741.     GOSUB LABEL195
  742.     LET VAR004=""
  743.     GOSUB LABEL197
  744.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  745.     IF (VAR004>VAR003) GOTO LABEL159
  746.     IF (VAR004="") GOTO LABEL005
  747.     FAPPEND 1,PPEPATH()+"Q13N.PV",O_RW,S_DB
  748.     FPUTLN 1,VAR044
  749.     FCLOSE 1
  750.     FOPEN 1,PPEPATH()+"Q13.PV",O_RD,S_DN
  751.     GOSUB LABEL195
  752.     LET VAR002=VAR002+1
  753.     GOSUB LABEL198
  754.     FOPEN 1,PPEPATH()+"Q13.PV",O_WR,S_DN
  755.     GOSUB LABEL196
  756.     GOTO LABEL005
  757.  
  758. :LABEL059
  759.     IF (VAR032="N") GOTO LABEL157
  760.     FOPEN 1,PPEPATH()+"Q14.PV",O_RD,S_DN
  761.     FGET 1,VAR046
  762.     FGET 1,VAR002
  763.     FCLOSE 1
  764.     IF (!EXIST(PPEPATH()+"Q14N.PV")) GOTO LABEL062
  765.     FOPEN 1,PPEPATH()+"Q14N.PV",O_RD,S_DN
  766.     LET VAR001=1
  767.  
  768. :LABEL060
  769.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL061
  770.     FGET 1,VAR045
  771.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  772.     LET VAR001=VAR001+1
  773.     GOTO LABEL060
  774.  
  775. :LABEL061
  776.     FCLOSE 1
  777.     GOTO LABEL062
  778.  
  779. :LABEL062
  780.     FOPEN 1,PPEPATH()+"Q14.PV",O_RD,S_DN
  781.     GOSUB LABEL195
  782.     LET VAR004=""
  783.     GOSUB LABEL197
  784.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  785.     IF (VAR004>VAR003) GOTO LABEL159
  786.     IF (VAR004="") GOTO LABEL005
  787.     FAPPEND 1,PPEPATH()+"Q14N.PV",O_RW,S_DB
  788.     FPUTLN 1,VAR044
  789.     FCLOSE 1
  790.     FOPEN 1,PPEPATH()+"Q14.PV",O_RD,S_DN
  791.     GOSUB LABEL195
  792.     LET VAR002=VAR002+1
  793.     GOSUB LABEL198
  794.     FOPEN 1,PPEPATH()+"Q14.PV",O_WR,S_DN
  795.     GOSUB LABEL196
  796.     GOTO LABEL005
  797.  
  798. :LABEL063
  799.     IF (VAR032="N") GOTO LABEL157
  800.     FOPEN 1,PPEPATH()+"Q15.PV",O_RD,S_DN
  801.     FGET 1,VAR046
  802.     FGET 1,VAR002
  803.     FCLOSE 1
  804.     IF (!EXIST(PPEPATH()+"Q15N.PV")) GOTO LABEL066
  805.     FOPEN 1,PPEPATH()+"Q15N.PV",O_RD,S_DN
  806.     LET VAR001=1
  807.  
  808. :LABEL064
  809.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL065
  810.     FGET 1,VAR045
  811.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  812.     LET VAR001=VAR001+1
  813.     GOTO LABEL064
  814.  
  815. :LABEL065
  816.     FCLOSE 1
  817.     GOTO LABEL066
  818.  
  819. :LABEL066
  820.     FOPEN 1,PPEPATH()+"Q15.PV",O_RD,S_DN
  821.     GOSUB LABEL195
  822.     LET VAR004=""
  823.     GOSUB LABEL197
  824.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  825.     IF (VAR004>VAR003) GOTO LABEL159
  826.     IF (VAR004="") GOTO LABEL005
  827.     FAPPEND 1,PPEPATH()+"Q15N.PV",O_RW,S_DB
  828.     FPUTLN 1,VAR044
  829.     FCLOSE 1
  830.     FOPEN 1,PPEPATH()+"Q15.PV",O_RD,S_DN
  831.     GOSUB LABEL195
  832.     LET VAR002=VAR002+1
  833.     GOSUB LABEL198
  834.     FOPEN 1,PPEPATH()+"Q15.PV",O_WR,S_DN
  835.     GOSUB LABEL196
  836.     GOTO LABEL005
  837.  
  838. :LABEL067
  839.     IF (VAR032="N") GOTO LABEL157
  840.     FOPEN 1,PPEPATH()+"Q16.PV",O_RD,S_DN
  841.     FGET 1,VAR046
  842.     FGET 1,VAR002
  843.     FCLOSE 1
  844.     IF (!EXIST(PPEPATH()+"Q16N.PV")) GOTO LABEL070
  845.     FOPEN 1,PPEPATH()+"Q16N.PV",O_RD,S_DN
  846.     LET VAR001=1
  847.  
  848. :LABEL068
  849.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL069
  850.     FGET 1,VAR045
  851.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  852.     LET VAR001=VAR001+1
  853.     GOTO LABEL068
  854.  
  855. :LABEL069
  856.     FCLOSE 1
  857.     GOTO LABEL070
  858.  
  859. :LABEL070
  860.     FOPEN 1,PPEPATH()+"Q16.PV",O_RD,S_DN
  861.     GOSUB LABEL195
  862.     LET VAR004=""
  863.     GOSUB LABEL197
  864.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  865.     IF (VAR004>VAR003) GOTO LABEL159
  866.     IF (VAR004="0") GOTO LABEL005
  867.     IF (VAR004="") GOTO LABEL005
  868.     FAPPEND 1,PPEPATH()+"Q16N.PV",O_RW,S_DB
  869.     FPUTLN 1,VAR044
  870.     FCLOSE 1
  871.     FOPEN 1,PPEPATH()+"Q16.PV",O_RD,S_DN
  872.     GOSUB LABEL195
  873.     LET VAR002=VAR002+1
  874.     GOSUB LABEL198
  875.     FOPEN 1,PPEPATH()+"Q16.PV",O_WR,S_DN
  876.     GOSUB LABEL196
  877.     GOTO LABEL005
  878.  
  879. :LABEL071
  880.     IF (VAR032="N") GOTO LABEL157
  881.     FOPEN 1,PPEPATH()+"Q17.PV",O_RD,S_DN
  882.     FGET 1,VAR046
  883.     FGET 1,VAR002
  884.     FCLOSE 1
  885.     IF (!EXIST(PPEPATH()+"Q17N.PV")) GOTO LABEL074
  886.     FOPEN 1,PPEPATH()+"Q17N.PV",O_RD,S_DN
  887.     LET VAR001=1
  888.  
  889. :LABEL072
  890.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL073
  891.     FGET 1,VAR045
  892.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  893.     LET VAR001=VAR001+1
  894.     GOTO LABEL072
  895.  
  896. :LABEL073
  897.     FCLOSE 1
  898.     GOTO LABEL074
  899.  
  900. :LABEL074
  901.     FOPEN 1,PPEPATH()+"Q17.PV",O_RD,S_DN
  902.     GOSUB LABEL195
  903.     LET VAR004=""
  904.     GOSUB LABEL197
  905.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  906.     IF (VAR004>VAR003) GOTO LABEL159
  907.     IF (VAR004="") GOTO LABEL005
  908.     FAPPEND 1,PPEPATH()+"Q17N.PV",O_RW,S_DB
  909.     FPUTLN 1,VAR044
  910.     FCLOSE 1
  911.     FOPEN 1,PPEPATH()+"Q17.PV",O_RD,S_DN
  912.     GOSUB LABEL195
  913.     LET VAR002=VAR002+1
  914.     GOSUB LABEL198
  915.     FOPEN 1,PPEPATH()+"Q17.PV",O_WR,S_DN
  916.     GOSUB LABEL196
  917.     GOTO LABEL005
  918.  
  919. :LABEL075
  920.     IF (VAR032="N") GOTO LABEL157
  921.     FOPEN 1,PPEPATH()+"Q18.PV",O_RD,S_DN
  922.     FGET 1,VAR046
  923.     FGET 1,VAR002
  924.     FCLOSE 1
  925.     IF (!EXIST(PPEPATH()+"Q18N.PV")) GOTO LABEL078
  926.     FOPEN 1,PPEPATH()+"Q18N.PV",O_RD,S_DN
  927.     LET VAR001=1
  928.  
  929. :LABEL076
  930.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL077
  931.     FGET 1,VAR045
  932.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  933.     LET VAR001=VAR001+1
  934.     GOTO LABEL076
  935.  
  936. :LABEL077
  937.     FCLOSE 1
  938.     GOTO LABEL078
  939.  
  940. :LABEL078
  941.     FOPEN 1,PPEPATH()+"Q18.PV",O_RD,S_DN
  942.     GOSUB LABEL195
  943.     LET VAR004=""
  944.     GOSUB LABEL197
  945.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  946.     IF (VAR004>VAR003) GOTO LABEL159
  947.     IF (VAR004="") GOTO LABEL005
  948.     FAPPEND 1,PPEPATH()+"Q18N.PV",O_RW,S_DB
  949.     FPUTLN 1,VAR044
  950.     FCLOSE 1
  951.     FOPEN 1,PPEPATH()+"Q18.PV",O_RD,S_DN
  952.     GOSUB LABEL195
  953.     LET VAR002=VAR002+1
  954.     GOSUB LABEL198
  955.     FOPEN 1,PPEPATH()+"Q18.PV",O_WR,S_DN
  956.     GOSUB LABEL196
  957.     GOTO LABEL005
  958.  
  959. :LABEL079
  960.     IF (VAR032="N") GOTO LABEL157
  961.     FOPEN 1,PPEPATH()+"Q19.PV",O_RD,S_DN
  962.     FGET 1,VAR046
  963.     FGET 1,VAR002
  964.     FCLOSE 1
  965.     IF (!EXIST(PPEPATH()+"Q19N.PV")) GOTO LABEL082
  966.     FOPEN 1,PPEPATH()+"Q19N.PV",O_RD,S_DN
  967.     LET VAR001=1
  968.  
  969. :LABEL080
  970.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL081
  971.     FGET 1,VAR045
  972.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  973.     LET VAR001=VAR001+1
  974.     GOTO LABEL080
  975.  
  976. :LABEL081
  977.     FCLOSE 1
  978.     GOTO LABEL082
  979.  
  980. :LABEL082
  981.     FOPEN 1,PPEPATH()+"Q19.PV",O_RD,S_DN
  982.     GOSUB LABEL195
  983.     LET VAR004=""
  984.     GOSUB LABEL197
  985.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  986.     IF (VAR004>VAR003) GOTO LABEL159
  987.     IF (VAR004="") GOTO LABEL005
  988.     FAPPEND 1,PPEPATH()+"Q19N.PV",O_RW,S_DB
  989.     FPUTLN 1,VAR044
  990.     FCLOSE 1
  991.     FOPEN 1,PPEPATH()+"Q19.PV",O_RD,S_DN
  992.     GOSUB LABEL195
  993.     LET VAR002=VAR002+1
  994.     GOSUB LABEL198
  995.     FOPEN 1,PPEPATH()+"Q19.PV",O_WR,S_DN
  996.     GOSUB LABEL196
  997.     GOTO LABEL005
  998.  
  999. :LABEL083
  1000.     IF (VAR032="N") GOTO LABEL157
  1001.     FOPEN 1,PPEPATH()+"Q20.PV",O_RD,S_DN
  1002.     FGET 1,VAR046
  1003.     FGET 1,VAR002
  1004.     FCLOSE 1
  1005.     IF (!EXIST(PPEPATH()+"Q20N.PV")) GOTO LABEL086
  1006.     FOPEN 1,PPEPATH()+"Q20N.PV",O_RD,S_DN
  1007.     LET VAR001=1
  1008.  
  1009. :LABEL084
  1010.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL085
  1011.     FGET 1,VAR045
  1012.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1013.     LET VAR001=VAR001+1
  1014.     GOTO LABEL084
  1015.  
  1016. :LABEL085
  1017.     FCLOSE 1
  1018.     GOTO LABEL086
  1019.  
  1020. :LABEL086
  1021.     FOPEN 1,PPEPATH()+"Q20.PV",O_RD,S_DN
  1022.     GOSUB LABEL195
  1023.     LET VAR004=""
  1024.     GOSUB LABEL197
  1025.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1026.     IF (VAR004>VAR003) GOTO LABEL159
  1027.     IF (VAR004="") GOTO LABEL005
  1028.     FAPPEND 1,PPEPATH()+"Q20N.PV",O_RW,S_DB
  1029.     FPUTLN 1,VAR044
  1030.     FCLOSE 1
  1031.     FOPEN 1,PPEPATH()+"Q20.PV",O_RD,S_DN
  1032.     GOSUB LABEL195
  1033.     LET VAR002=VAR002+1
  1034.     GOSUB LABEL198
  1035.     FOPEN 1,PPEPATH()+"Q20.PV",O_WR,S_DN
  1036.     GOSUB LABEL196
  1037.     GOTO LABEL005
  1038.  
  1039. :LABEL087
  1040.     IF (VAR032="N") GOTO LABEL157
  1041.     FOPEN 1,PPEPATH()+"Q21.PV",O_RD,S_DN
  1042.     FGET 1,VAR046
  1043.     FGET 1,VAR002
  1044.     FCLOSE 1
  1045.     IF (!EXIST(PPEPATH()+"Q21N.PV")) GOTO LABEL090
  1046.     FOPEN 1,PPEPATH()+"Q21N.PV",O_RD,S_DN
  1047.     LET VAR001=1
  1048.  
  1049. :LABEL088
  1050.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL089
  1051.     FGET 1,VAR045
  1052.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1053.     LET VAR001=VAR001+1
  1054.     GOTO LABEL088
  1055.  
  1056. :LABEL089
  1057.     FCLOSE 1
  1058.     GOTO LABEL090
  1059.  
  1060. :LABEL090
  1061.     FOPEN 1,PPEPATH()+"Q21.PV",O_RD,S_DN
  1062.     GOSUB LABEL195
  1063.     LET VAR004=""
  1064.     GOSUB LABEL197
  1065.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1066.     IF (VAR004>VAR003) GOTO LABEL159
  1067.     IF (VAR004="0") GOTO LABEL005
  1068.     IF (VAR004="") GOTO LABEL005
  1069.     FAPPEND 1,PPEPATH()+"Q21N.PV",O_RW,S_DB
  1070.     FPUTLN 1,VAR044
  1071.     FCLOSE 1
  1072.     FOPEN 1,PPEPATH()+"Q21.PV",O_RD,S_DN
  1073.     GOSUB LABEL195
  1074.     LET VAR002=VAR002+1
  1075.     GOSUB LABEL198
  1076.     FOPEN 1,PPEPATH()+"Q21.PV",O_WR,S_DN
  1077.     GOSUB LABEL196
  1078.     GOTO LABEL005
  1079.  
  1080. :LABEL091
  1081.     IF (VAR032="N") GOTO LABEL157
  1082.     FOPEN 1,PPEPATH()+"Q22.PV",O_RD,S_DN
  1083.     FGET 1,VAR046
  1084.     FGET 1,VAR002
  1085.     FCLOSE 1
  1086.     IF (!EXIST(PPEPATH()+"Q22N.PV")) GOTO LABEL094
  1087.     FOPEN 1,PPEPATH()+"Q22N.PV",O_RD,S_DN
  1088.     LET VAR001=1
  1089.  
  1090. :LABEL092
  1091.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL093
  1092.     FGET 1,VAR045
  1093.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1094.     LET VAR001=VAR001+1
  1095.     GOTO LABEL092
  1096.  
  1097. :LABEL093
  1098.     FCLOSE 1
  1099.     GOTO LABEL094
  1100.  
  1101. :LABEL094
  1102.     FOPEN 1,PPEPATH()+"Q22.PV",O_RD,S_DN
  1103.     GOSUB LABEL195
  1104.     LET VAR004=""
  1105.     GOSUB LABEL197
  1106.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1107.     IF (VAR004>VAR003) GOTO LABEL159
  1108.     IF (VAR004="") GOTO LABEL005
  1109.     FAPPEND 1,PPEPATH()+"Q22N.PV",O_RW,S_DB
  1110.     FPUTLN 1,VAR044
  1111.     FCLOSE 1
  1112.     FOPEN 1,PPEPATH()+"Q22.PV",O_RD,S_DN
  1113.     GOSUB LABEL195
  1114.     LET VAR002=VAR002+1
  1115.     GOSUB LABEL198
  1116.     FOPEN 1,PPEPATH()+"Q22.PV",O_WR,S_DN
  1117.     GOSUB LABEL196
  1118.     GOTO LABEL005
  1119.  
  1120. :LABEL095
  1121.     IF (VAR032="N") GOTO LABEL157
  1122.     FOPEN 1,PPEPATH()+"Q23.PV",O_RD,S_DN
  1123.     FGET 1,VAR046
  1124.     FGET 1,VAR002
  1125.     FCLOSE 1
  1126.     IF (!EXIST(PPEPATH()+"Q23N.PV")) GOTO LABEL098
  1127.     FOPEN 1,PPEPATH()+"Q23N.PV",O_RD,S_DN
  1128.     LET VAR001=1
  1129.  
  1130. :LABEL096
  1131.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL097
  1132.     FGET 1,VAR045
  1133.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1134.     LET VAR001=VAR001+1
  1135.     GOTO LABEL096
  1136.  
  1137. :LABEL097
  1138.     FCLOSE 1
  1139.     GOTO LABEL098
  1140.  
  1141. :LABEL098
  1142.     FOPEN 1,PPEPATH()+"Q23.PV",O_RD,S_DN
  1143.     GOSUB LABEL195
  1144.     LET VAR004=""
  1145.     GOSUB LABEL197
  1146.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1147.     IF (VAR004>VAR003) GOTO LABEL159
  1148.     IF (VAR004="") GOTO LABEL005
  1149.     FAPPEND 1,PPEPATH()+"Q23N.PV",O_RW,S_DB
  1150.     FPUTLN 1,VAR044
  1151.     FCLOSE 1
  1152.     FOPEN 1,PPEPATH()+"Q23.PV",O_RD,S_DN
  1153.     GOSUB LABEL195
  1154.     LET VAR002=VAR002+1
  1155.     GOSUB LABEL198
  1156.     FOPEN 1,PPEPATH()+"Q23.PV",O_WR,S_DN
  1157.     GOSUB LABEL196
  1158.     GOTO LABEL005
  1159.  
  1160. :LABEL099
  1161.     IF (VAR032="N") GOTO LABEL157
  1162.     FOPEN 1,PPEPATH()+"Q24.PV",O_RD,S_DN
  1163.     FGET 1,VAR046
  1164.     FGET 1,VAR002
  1165.     FCLOSE 1
  1166.     IF (!EXIST(PPEPATH()+"Q24N.PV")) GOTO LABEL102
  1167.     FOPEN 1,PPEPATH()+"Q24N.PV",O_RD,S_DN
  1168.     LET VAR001=1
  1169.  
  1170. :LABEL100
  1171.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL101
  1172.     FGET 1,VAR045
  1173.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1174.     LET VAR001=VAR001+1
  1175.     GOTO LABEL100
  1176.  
  1177. :LABEL101
  1178.     FCLOSE 1
  1179.     GOTO LABEL102
  1180.  
  1181. :LABEL102
  1182.     FOPEN 1,PPEPATH()+"Q24.PV",O_RD,S_DN
  1183.     GOSUB LABEL195
  1184.     LET VAR004=""
  1185.     GOSUB LABEL197
  1186.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1187.     IF (VAR004>VAR003) GOTO LABEL159
  1188.     IF (VAR004="") GOTO LABEL005
  1189.     FAPPEND 1,PPEPATH()+"Q24N.PV",O_RW,S_DB
  1190.     FPUTLN 1,VAR044
  1191.     FCLOSE 1
  1192.     FOPEN 1,PPEPATH()+"Q24.PV",O_RD,S_DN
  1193.     GOSUB LABEL195
  1194.     LET VAR002=VAR002+1
  1195.     GOSUB LABEL198
  1196.     FOPEN 1,PPEPATH()+"Q24.PV",O_WR,S_DN
  1197.     GOSUB LABEL196
  1198.     GOTO LABEL005
  1199.  
  1200. :LABEL103
  1201.     IF (VAR032="N") GOTO LABEL157
  1202.     FOPEN 1,PPEPATH()+"Q25.PV",O_RD,S_DN
  1203.     FGET 1,VAR046
  1204.     FGET 1,VAR002
  1205.     FCLOSE 1
  1206.     IF (!EXIST(PPEPATH()+"Q25N.PV")) GOTO LABEL106
  1207.     FOPEN 1,PPEPATH()+"Q25N.PV",O_RD,S_DN
  1208.     LET VAR001=1
  1209.  
  1210. :LABEL104
  1211.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL105
  1212.     FGET 1,VAR045
  1213.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1214.     LET VAR001=VAR001+1
  1215.     GOTO LABEL104
  1216.  
  1217. :LABEL105
  1218.     FCLOSE 1
  1219.     GOTO LABEL106
  1220.  
  1221. :LABEL106
  1222.     FOPEN 1,PPEPATH()+"Q25.PV",O_RD,S_DN
  1223.     GOSUB LABEL195
  1224.     LET VAR004=""
  1225.     GOSUB LABEL197
  1226.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1227.     IF (VAR004>VAR003) GOTO LABEL159
  1228.     IF (VAR004="") GOTO LABEL005
  1229.     FAPPEND 1,PPEPATH()+"Q25N.PV",O_RW,S_DB
  1230.     FPUTLN 1,VAR044
  1231.     FCLOSE 1
  1232.     FOPEN 1,PPEPATH()+"Q25.PV",O_RD,S_DN
  1233.     GOSUB LABEL195
  1234.     LET VAR002=VAR002+1
  1235.     GOSUB LABEL198
  1236.     FOPEN 1,PPEPATH()+"Q25.PV",O_WR,S_DN
  1237.     GOSUB LABEL196
  1238.     GOTO LABEL005
  1239.  
  1240. :LABEL107
  1241.     IF (VAR032="N") GOTO LABEL157
  1242.     FOPEN 1,PPEPATH()+"Q26.PV",O_RD,S_DN
  1243.     FGET 1,VAR046
  1244.     FGET 1,VAR002
  1245.     FCLOSE 1
  1246.     IF (!EXIST(PPEPATH()+"Q26N.PV")) GOTO LABEL110
  1247.     FOPEN 1,PPEPATH()+"Q26N.PV",O_RD,S_DN
  1248.     LET VAR001=1
  1249.  
  1250. :LABEL108
  1251.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL109
  1252.     FGET 1,VAR045
  1253.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1254.     LET VAR001=VAR001+1
  1255.     GOTO LABEL108
  1256.  
  1257. :LABEL109
  1258.     FCLOSE 1
  1259.     GOTO LABEL110
  1260.  
  1261. :LABEL110
  1262.     FOPEN 1,PPEPATH()+"Q26.PV",O_RD,S_DN
  1263.     GOSUB LABEL195
  1264.     LET VAR004=""
  1265.     GOSUB LABEL197
  1266.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1267.     IF (VAR004>VAR003) GOTO LABEL159
  1268.     IF (VAR004="0") GOTO LABEL005
  1269.     IF (VAR004="") GOTO LABEL005
  1270.     FAPPEND 1,PPEPATH()+"Q26N.PV",O_RW,S_DB
  1271.     FPUTLN 1,VAR044
  1272.     FCLOSE 1
  1273.     FOPEN 1,PPEPATH()+"Q26.PV",O_RD,S_DN
  1274.     GOSUB LABEL195
  1275.     LET VAR002=VAR002+1
  1276.     GOSUB LABEL198
  1277.     FOPEN 1,PPEPATH()+"Q26.PV",O_WR,S_DN
  1278.     GOSUB LABEL196
  1279.     GOTO LABEL005
  1280.  
  1281. :LABEL111
  1282.     IF (VAR032="N") GOTO LABEL157
  1283.     FOPEN 1,PPEPATH()+"Q27.PV",O_RD,S_DN
  1284.     FGET 1,VAR046
  1285.     FGET 1,VAR002
  1286.     FCLOSE 1
  1287.     IF (!EXIST(PPEPATH()+"Q27N.PV")) GOTO LABEL114
  1288.     FOPEN 1,PPEPATH()+"Q27N.PV",O_RD,S_DN
  1289.     LET VAR001=1
  1290.  
  1291. :LABEL112
  1292.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL113
  1293.     FGET 1,VAR045
  1294.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1295.     LET VAR001=VAR001+1
  1296.     GOTO LABEL112
  1297.  
  1298. :LABEL113
  1299.     FCLOSE 1
  1300.     GOTO LABEL114
  1301.  
  1302. :LABEL114
  1303.     FOPEN 1,PPEPATH()+"Q27.PV",O_RD,S_DN
  1304.     GOSUB LABEL195
  1305.     LET VAR004=""
  1306.     GOSUB LABEL197
  1307.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1308.     IF (VAR004>VAR003) GOTO LABEL159
  1309.     IF (VAR004="") GOTO LABEL005
  1310.     FAPPEND 1,PPEPATH()+"Q27N.PV",O_RW,S_DB
  1311.     FPUTLN 1,VAR044
  1312.     FCLOSE 1
  1313.     FOPEN 1,PPEPATH()+"Q27.PV",O_RD,S_DN
  1314.     GOSUB LABEL195
  1315.     LET VAR002=VAR002+1
  1316.     GOSUB LABEL198
  1317.     FOPEN 1,PPEPATH()+"Q27.PV",O_WR,S_DN
  1318.     GOSUB LABEL196
  1319.     GOTO LABEL005
  1320.  
  1321. :LABEL115
  1322.     IF (VAR032="N") GOTO LABEL157
  1323.     FOPEN 1,PPEPATH()+"Q28.PV",O_RD,S_DN
  1324.     FGET 1,VAR046
  1325.     FGET 1,VAR002
  1326.     FCLOSE 1
  1327.     IF (!EXIST(PPEPATH()+"Q28N.PV")) GOTO LABEL118
  1328.     FOPEN 1,PPEPATH()+"Q28N.PV",O_RD,S_DN
  1329.     LET VAR001=1
  1330.  
  1331. :LABEL116
  1332.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL117
  1333.     FGET 1,VAR045
  1334.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1335.     LET VAR001=VAR001+1
  1336.     GOTO LABEL116
  1337.  
  1338. :LABEL117
  1339.     FCLOSE 1
  1340.     GOTO LABEL118
  1341.  
  1342. :LABEL118
  1343.     FOPEN 1,PPEPATH()+"Q28.PV",O_RD,S_DN
  1344.     GOSUB LABEL195
  1345.     LET VAR004=""
  1346.     GOSUB LABEL197
  1347.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1348.     IF (VAR004>VAR003) GOTO LABEL159
  1349.     IF (VAR004="") GOTO LABEL005
  1350.     FAPPEND 1,PPEPATH()+"Q28N.PV",O_RW,S_DB
  1351.     FPUTLN 1,VAR044
  1352.     FCLOSE 1
  1353.     FOPEN 1,PPEPATH()+"Q28.PV",O_RD,S_DN
  1354.     GOSUB LABEL195
  1355.     LET VAR002=VAR002+1
  1356.     GOSUB LABEL198
  1357.     FOPEN 1,PPEPATH()+"Q28.PV",O_WR,S_DN
  1358.     GOSUB LABEL196
  1359.     GOTO LABEL005
  1360.  
  1361. :LABEL119
  1362.     IF (VAR032="N") GOTO LABEL157
  1363.     FOPEN 1,PPEPATH()+"Q29.PV",O_RD,S_DN
  1364.     FGET 1,VAR046
  1365.     FGET 1,VAR002
  1366.     FCLOSE 1
  1367.     IF (!EXIST(PPEPATH()+"Q29N.PV")) GOTO LABEL122
  1368.     FOPEN 1,PPEPATH()+"Q29N.PV",O_RD,S_DN
  1369.     LET VAR001=1
  1370.  
  1371. :LABEL120
  1372.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL121
  1373.     FGET 1,VAR045
  1374.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1375.     LET VAR001=VAR001+1
  1376.     GOTO LABEL120
  1377.  
  1378. :LABEL121
  1379.     FCLOSE 1
  1380.     GOTO LABEL122
  1381.  
  1382. :LABEL122
  1383.     FOPEN 1,PPEPATH()+"Q29.PV",O_RD,S_DN
  1384.     GOSUB LABEL195
  1385.     LET VAR004=""
  1386.     GOSUB LABEL197
  1387.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1388.     IF (VAR004>VAR003) GOTO LABEL159
  1389.     IF (VAR004="") GOTO LABEL005
  1390.     FAPPEND 1,PPEPATH()+"Q29N.PV",O_RW,S_DB
  1391.     FPUTLN 1,VAR044
  1392.     FCLOSE 1
  1393.     FOPEN 1,PPEPATH()+"Q29.PV",O_RD,S_DN
  1394.     GOSUB LABEL195
  1395.     LET VAR002=VAR002+1
  1396.     GOSUB LABEL198
  1397.     FOPEN 1,PPEPATH()+"Q29.PV",O_WR,S_DN
  1398.     GOSUB LABEL196
  1399.     GOTO LABEL005
  1400.  
  1401. :LABEL123
  1402.     IF (VAR032="N") GOTO LABEL157
  1403.     FOPEN 1,PPEPATH()+"Q30.PV",O_RD,S_DN
  1404.     FGET 1,VAR046
  1405.     FGET 1,VAR002
  1406.     FCLOSE 1
  1407.     IF (!EXIST(PPEPATH()+"Q30N.PV")) GOTO LABEL126
  1408.     FOPEN 1,PPEPATH()+"Q30N.PV",O_RD,S_DN
  1409.     LET VAR001=1
  1410.  
  1411. :LABEL124
  1412.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL125
  1413.     FGET 1,VAR045
  1414.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1415.     LET VAR001=VAR001+1
  1416.     GOTO LABEL124
  1417.  
  1418. :LABEL125
  1419.     FCLOSE 1
  1420.     GOTO LABEL126
  1421.  
  1422. :LABEL126
  1423.     FOPEN 1,PPEPATH()+"Q30.PV",O_RD,S_DN
  1424.     GOSUB LABEL195
  1425.     LET VAR004=""
  1426.     GOSUB LABEL197
  1427.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1428.     IF (VAR004>VAR003) GOTO LABEL159
  1429.     IF (VAR004="") GOTO LABEL005
  1430.     FAPPEND 1,PPEPATH()+"Q30N.PV",O_RW,S_DB
  1431.     FPUTLN 1,VAR044
  1432.     FCLOSE 1
  1433.     FOPEN 1,PPEPATH()+"Q30.PV",O_RD,S_DN
  1434.     GOSUB LABEL195
  1435.     LET VAR002=VAR002+1
  1436.     GOSUB LABEL198
  1437.     FOPEN 1,PPEPATH()+"Q30.PV",O_WR,S_DN
  1438.     GOSUB LABEL196
  1439.     GOTO LABEL005
  1440.  
  1441. :LABEL127
  1442.     IF (VAR032="N") GOTO LABEL157
  1443.     FOPEN 1,PPEPATH()+"Q31.PV",O_RD,S_DN
  1444.     FGET 1,VAR046
  1445.     FGET 1,VAR002
  1446.     FCLOSE 1
  1447.     IF (!EXIST(PPEPATH()+"Q31N.PV")) GOTO LABEL130
  1448.     FOPEN 1,PPEPATH()+"Q31N.PV",O_RD,S_DN
  1449.     LET VAR001=1
  1450.  
  1451. :LABEL128
  1452.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL129
  1453.     FGET 1,VAR045
  1454.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1455.     LET VAR001=VAR001+1
  1456.     GOTO LABEL128
  1457.  
  1458. :LABEL129
  1459.     FCLOSE 1
  1460.     GOTO LABEL130
  1461.  
  1462. :LABEL130
  1463.     FOPEN 1,PPEPATH()+"Q31.PV",O_RD,S_DN
  1464.     GOSUB LABEL195
  1465.     LET VAR004=""
  1466.     GOSUB LABEL197
  1467.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1468.     IF (VAR004>VAR003) GOTO LABEL159
  1469.     IF (VAR004="0") GOTO LABEL005
  1470.     IF (VAR004="") GOTO LABEL005
  1471.     FAPPEND 1,PPEPATH()+"Q31N.PV",O_RW,S_DB
  1472.     FPUTLN 1,VAR044
  1473.     FCLOSE 1
  1474.     FOPEN 1,PPEPATH()+"Q31.PV",O_RD,S_DN
  1475.     GOSUB LABEL195
  1476.     LET VAR002=VAR002+1
  1477.     GOSUB LABEL198
  1478.     FOPEN 1,PPEPATH()+"Q31.PV",O_WR,S_DN
  1479.     GOSUB LABEL196
  1480.     GOTO LABEL005
  1481.  
  1482. :LABEL131
  1483.     IF (VAR032="N") GOTO LABEL157
  1484.     FOPEN 1,PPEPATH()+"Q32.PV",O_RD,S_DN
  1485.     FGET 1,VAR046
  1486.     FGET 1,VAR002
  1487.     FCLOSE 1
  1488.     IF (!EXIST(PPEPATH()+"Q32N.PV")) GOTO LABEL134
  1489.     FOPEN 1,PPEPATH()+"Q32N.PV",O_RD,S_DN
  1490.     LET VAR001=1
  1491.  
  1492. :LABEL132
  1493.     IF (!(((1<0)&(VAR001>=VAR002))|((1>=0)&(VAR001<=VAR002)))) GOTO LABEL133
  1494.     FGET 1,VAR045
  1495.     IF (U_NAME()=UPPER(VAR045)) GOTO LABEL156
  1496.     LET VAR001=VAR001+1
  1497.     GOTO LABEL132
  1498.  
  1499. :LABEL133
  1500.     FCLOSE 1
  1501.     GOTO LABEL134
  1502.  
  1503. :LABEL134
  1504.     FOPEN 1,PPEPATH()+"Q32.PV",O_RD,S_DN
  1505.     GOSUB LABEL195
  1506.     LET VAR004=""
  1507.     GOSUB LABEL197
  1508.     INPUTSTR VAR046,VAR004,11,2,MASK_NUM(),2+128
  1509.     IF (VAR004>VAR003) GOTO LABEL159
  1510.     IF (VAR004="") GOTO LABEL005
  1511.     FAPPEND 1,PPEPATH()+"Q32N.PV",O_RW,S_DB
  1512.     FPUTLN 1,VAR044
  1513.     FCLOSE 1
  1514.     FOPEN 1,PPEPATH()+"Q32.PV",O_RD,S_DN
  1515.     GOSUB LABEL195
  1516.     LET VAR002=VAR002+1
  1517.     GOSUB LABEL198
  1518.     FOPEN 1,PPEPATH()+"Q32.PV",O_WR,S_DN
  1519.     GOSUB LABEL196
  1520.     GOTO LABEL005
  1521.  
  1522. :LABEL135
  1523.     LET VAR004=""
  1524.     INPUTSTR "Select Questionnaire/Poll to view",VAR004,11,2,MASK_NUM(),2+128
  1525.     IF (VAR004>VAR005) GOTO LABEL005
  1526.     IF (VAR004=0) GOTO LABEL005
  1527.     IF (VAR004=1) GOSUB LABEL163
  1528.     IF (VAR004=2) GOSUB LABEL164
  1529.     IF (VAR004=3) GOSUB LABEL165
  1530.     IF (VAR004=4) GOSUB LABEL166
  1531.     IF (VAR004=5) GOSUB LABEL167
  1532.     IF (VAR004=6) GOSUB LABEL168
  1533.     IF (VAR004=7) GOSUB LABEL169
  1534.     IF (VAR004=8) GOSUB LABEL170
  1535.     IF (VAR004=9) GOSUB LABEL171
  1536.     IF (VAR004=10) GOSUB LABEL172
  1537.     IF (VAR004=11) GOSUB LABEL173
  1538.     IF (VAR004=12) GOSUB LABEL174
  1539.     IF (VAR004=13) GOSUB LABEL175
  1540.     IF (VAR004=14) GOSUB LABEL176
  1541.     IF (VAR004=15) GOSUB LABEL177
  1542.     IF (VAR004=16) GOSUB LABEL178
  1543.     IF (VAR004=17) GOSUB LABEL179
  1544.     IF (VAR004=18) GOSUB LABEL180
  1545.     IF (VAR004=19) GOSUB LABEL181
  1546.     IF (VAR004=20) GOSUB LABEL182
  1547.     IF (VAR004=21) GOSUB LABEL183
  1548.     IF (VAR004=22) GOSUB LABEL184
  1549.     IF (VAR004=23) GOSUB LABEL185
  1550.     IF (VAR004=24) GOSUB LABEL186
  1551.     IF (VAR004=25) GOSUB LABEL187
  1552.     IF (VAR004=26) GOSUB LABEL188
  1553.     IF (VAR004=27) GOSUB LABEL189
  1554.     IF (VAR004=28) GOSUB LABEL190
  1555.     IF (VAR004=29) GOSUB LABEL191
  1556.     IF (VAR004=30) GOSUB LABEL192
  1557.     IF (VAR004=31) GOSUB LABEL193
  1558.     IF (VAR004=32) GOSUB LABEL194
  1559.     GOSUB LABEL195
  1560.     CLS 
  1561.     PRINTLN "@X0F",VAR002," @X0BResponses to the question:"
  1562.     PRINTLN VAR046
  1563.     PRINTLN 
  1564.     PRINTLN "@X0FVotes @X0EOptions..."
  1565.     PRINTLN "@X0F===== @X0E==========@X0B"
  1566.     IF (LEN(VAR006)=1) LET VAR047="   "
  1567.     IF (LEN(VAR006)=2) LET VAR047="  "
  1568.     IF (LEN(VAR006)=3) LET VAR047=" "
  1569.     IF (LEN(VAR006)=4) LET VAR047=""
  1570.     IF (!(VAR003>=1)) GOTO LABEL136
  1571.     PRINTLN VAR047,VAR006,"  1  ",VAR033
  1572.     GOTO LABEL137
  1573.  
  1574. :LABEL136
  1575.     GOTO LABEL155
  1576.  
  1577. :LABEL137
  1578.     IF (LEN(VAR007)=1) LET VAR047="   "
  1579.     IF (LEN(VAR007)=2) LET VAR047="  "
  1580.     IF (LEN(VAR007)=3) LET VAR047=" "
  1581.     IF (LEN(VAR007)=4) LET VAR047=""
  1582.     IF (!(VAR003>=2)) GOTO LABEL138
  1583.     PRINTLN VAR047,VAR007,"  2  ",VAR034
  1584.     GOTO LABEL139
  1585.  
  1586. :LABEL138
  1587.     GOTO LABEL155
  1588.  
  1589. :LABEL139
  1590.     IF (LEN(VAR008)=1) LET VAR047="   "
  1591.     IF (LEN(VAR008)=2) LET VAR047="  "
  1592.     IF (LEN(VAR008)=3) LET VAR047=" "
  1593.     IF (LEN(VAR008)=4) LET VAR047=""
  1594.     IF (!(VAR003>=3)) GOTO LABEL140
  1595.     PRINTLN VAR047,VAR008,"  3  ",VAR035
  1596.     GOTO LABEL141
  1597.  
  1598. :LABEL140
  1599.     GOTO LABEL155
  1600.  
  1601. :LABEL141
  1602.     IF (LEN(VAR009)=1) LET VAR047="   "
  1603.     IF (LEN(VAR009)=2) LET VAR047="  "
  1604.     IF (LEN(VAR009)=3) LET VAR047=" "
  1605.     IF (LEN(VAR009)=4) LET VAR047=""
  1606.     IF (!(VAR003>=4)) GOTO LABEL142
  1607.     PRINTLN VAR047,VAR009,"  4  ",VAR036
  1608.     GOTO LABEL143
  1609.  
  1610. :LABEL142
  1611.     GOTO LABEL155
  1612.  
  1613. :LABEL143
  1614.     IF (LEN(VAR010)=1) LET VAR047="   "
  1615.     IF (LEN(VAR010)=2) LET VAR047="  "
  1616.     IF (LEN(VAR010)=3) LET VAR047=" "
  1617.     IF (LEN(VAR010)=4) LET VAR047=""
  1618.     IF (!(VAR003>=5)) GOTO LABEL144
  1619.     PRINTLN VAR047,VAR010,"  5  ",VAR037
  1620.     GOTO LABEL145
  1621.  
  1622. :LABEL144
  1623.     GOTO LABEL155
  1624.  
  1625. :LABEL145
  1626.     IF (LEN(VAR011)=1) LET VAR047="   "
  1627.     IF (LEN(VAR011)=2) LET VAR047="  "
  1628.     IF (LEN(VAR011)=3) LET VAR047=" "
  1629.     IF (LEN(VAR011)=4) LET VAR047=""
  1630.     IF (!(VAR003>=6)) GOTO LABEL146
  1631.     PRINTLN VAR047,VAR011,"  6  ",VAR038
  1632.     GOTO LABEL147
  1633.  
  1634. :LABEL146
  1635.     GOTO LABEL155
  1636.  
  1637. :LABEL147
  1638.     IF (LEN(VAR012)=1) LET VAR047="   "
  1639.     IF (LEN(VAR012)=2) LET VAR047="  "
  1640.     IF (LEN(VAR012)=3) LET VAR047=" "
  1641.     IF (LEN(VAR012)=4) LET VAR047=""
  1642.     IF (!(VAR003>=7)) GOTO LABEL148
  1643.     PRINTLN VAR047,VAR012,"  7  ",VAR039
  1644.     GOTO LABEL149
  1645.  
  1646. :LABEL148
  1647.     GOTO LABEL155
  1648.  
  1649. :LABEL149
  1650.     IF (LEN(VAR013)=1) LET VAR047="   "
  1651.     IF (LEN(VAR013)=2) LET VAR047="  "
  1652.     IF (LEN(VAR013)=3) LET VAR047=" "
  1653.     IF (LEN(VAR013)=4) LET VAR047=""
  1654.     IF (!(VAR003>=8)) GOTO LABEL150
  1655.     PRINTLN VAR047,VAR013,"  8  ",VAR040
  1656.     GOTO LABEL151
  1657.  
  1658. :LABEL150
  1659.     GOTO LABEL155
  1660.  
  1661. :LABEL151
  1662.     IF (LEN(VAR014)=1) LET VAR047="   "
  1663.     IF (LEN(VAR014)=2) LET VAR047="  "
  1664.     IF (LEN(VAR014)=3) LET VAR047=" "
  1665.     IF (LEN(VAR014)=4) LET VAR047=""
  1666.     IF (!(VAR003>=9)) GOTO LABEL152
  1667.     PRINTLN VAR047,VAR014,"  9  ",VAR041
  1668.     GOTO LABEL153
  1669.  
  1670. :LABEL152
  1671.     GOTO LABEL155
  1672.  
  1673. :LABEL153
  1674.     IF (LEN(VAR015)=1) LET VAR047="   "
  1675.     IF (LEN(VAR015)=2) LET VAR047="  "
  1676.     IF (LEN(VAR015)=3) LET VAR047=" "
  1677.     IF (LEN(VAR015)=4) LET VAR047=""
  1678.     IF (!(VAR003>=10)) GOTO LABEL154
  1679.     PRINTLN VAR047,VAR015," 10  ",VAR042
  1680.     GOTO LABEL155
  1681.  
  1682. :LABEL154
  1683.     GOTO LABEL155
  1684.  
  1685. :LABEL155
  1686.     PRINTLN 
  1687.     WAIT 
  1688.     GOTO LABEL005
  1689.  
  1690. :LABEL156
  1691.     FCLOSE 1
  1692.     PRINTLN 
  1693.     PRINTLN "@X0CSorry, you already answered this one..."
  1694.     PRINTLN 
  1695.     WAIT 
  1696.     GOTO LABEL005
  1697.  
  1698. :LABEL157
  1699.     PRINTLN 
  1700.     PRINTLN "@X0CSorry, the UnRegistered version supports only one Poll."
  1701.     PRINTLN "@X0CThe Registered version of Pro-Vote supports  32  Polls."
  1702.     PRINTLN "@X0CRegistration is only $10 and removes any delays/limits!"
  1703.     PRINTLN "@X0CPlease help your SysOp to support shareware. Thank you."
  1704.     PRINTLN 
  1705.     DELAY 91
  1706.     GOTO LABEL005
  1707.  
  1708. :LABEL158
  1709.     PRINTLN 
  1710.     PRINTLN "@X0C Config Error - Problem With Config File - Please inform SysOp"
  1711.     END 
  1712.  
  1713.  
  1714. :LABEL159
  1715.     PRINTLN 
  1716.     PRINTLN "@X0C Config Error - Problem With Answer File - Please inform SysOp"
  1717.     END 
  1718.  
  1719.  
  1720. :LABEL160
  1721.     CLS 
  1722.     PRINTLN 
  1723.     PRINTLN "                       @X50┌──────────────────────────────@X5D┐@X0D"
  1724.     PRINTLN "                       @X50│        @X5APro-Vote  v",VAR043,"        @X5D│@X0D"
  1725.     PRINTLN "                       @X50│                              @X5D│@X0D"
  1726.     IF (!(VAR032="N")) GOTO LABEL161
  1727.     PRINTLN "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  1728.     PRINTLN "                       @X50│                              @X5D│@X0D"
  1729.     PRINTLN "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  1730.     PRINTLN "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  1731.     PRINTLN "                       @X50└@X5D──────────────────────────────┘@X07"
  1732.     BEEP 
  1733.     DELAY 182
  1734.     GOTO LABEL162
  1735.  
  1736. :LABEL161
  1737.     PRINTLN "                       @X50│          @X5BReg # ",VAR026,"    @POS:55@@X5D│@X07"
  1738.     PRINTLN "                       @X50│@X5B",VAR023,VAR022,"@POS:55@@X5D│@X07"
  1739.     PRINTLN "                       @X50└@X5D──────────────────────────────┘@X07"
  1740.     PRINTLN 
  1741.     PRINTLN 
  1742.     PRINTLN 
  1743.     DELAY 50
  1744.  
  1745. :LABEL162
  1746.     END 
  1747.  
  1748.  
  1749. :LABEL163
  1750.     FOPEN 1,PPEPATH()+"Q01.PV",O_RD,S_DN
  1751.     RETURN 
  1752.  
  1753.  
  1754. :LABEL164
  1755.     IF (VAR032="N") GOTO LABEL157
  1756.     FOPEN 1,PPEPATH()+"Q02.PV",O_RD,S_DN
  1757.     RETURN 
  1758.  
  1759.  
  1760. :LABEL165
  1761.     IF (VAR032="N") GOTO LABEL157
  1762.     FOPEN 1,PPEPATH()+"Q03.PV",O_RD,S_DN
  1763.     RETURN 
  1764.  
  1765.  
  1766. :LABEL166
  1767.     IF (VAR032="N") GOTO LABEL157
  1768.     FOPEN 1,PPEPATH()+"Q04.PV",O_RD,S_DN
  1769.     RETURN 
  1770.  
  1771.  
  1772. :LABEL167
  1773.     IF (VAR032="N") GOTO LABEL157
  1774.     FOPEN 1,PPEPATH()+"Q05.PV",O_RD,S_DN
  1775.     RETURN 
  1776.  
  1777.  
  1778. :LABEL168
  1779.     IF (VAR032="N") GOTO LABEL157
  1780.     FOPEN 1,PPEPATH()+"Q06.PV",O_RD,S_DN
  1781.     RETURN 
  1782.  
  1783.  
  1784. :LABEL169
  1785.     IF (VAR032="N") GOTO LABEL157
  1786.     FOPEN 1,PPEPATH()+"Q07.PV",O_RD,S_DN
  1787.     RETURN 
  1788.  
  1789.  
  1790. :LABEL170
  1791.     IF (VAR032="N") GOTO LABEL157
  1792.     FOPEN 1,PPEPATH()+"Q08.PV",O_RD,S_DN
  1793.     RETURN 
  1794.  
  1795.  
  1796. :LABEL171
  1797.     IF (VAR032="N") GOTO LABEL157
  1798.     FOPEN 1,PPEPATH()+"Q09.PV",O_RD,S_DN
  1799.     RETURN 
  1800.  
  1801.  
  1802. :LABEL172
  1803.     IF (VAR032="N") GOTO LABEL157
  1804.     FOPEN 1,PPEPATH()+"Q10.PV",O_RD,S_DN
  1805.     RETURN 
  1806.  
  1807.  
  1808. :LABEL173
  1809.     IF (VAR032="N") GOTO LABEL157
  1810.     FOPEN 1,PPEPATH()+"Q11.PV",O_RD,S_DN
  1811.     RETURN 
  1812.  
  1813.  
  1814. :LABEL174
  1815.     IF (VAR032="N") GOTO LABEL157
  1816.     FOPEN 1,PPEPATH()+"Q12.PV",O_RD,S_DN
  1817.     RETURN 
  1818.  
  1819.  
  1820. :LABEL175
  1821.     IF (VAR032="N") GOTO LABEL157
  1822.     FOPEN 1,PPEPATH()+"Q13.PV",O_RD,S_DN
  1823.     RETURN 
  1824.  
  1825.  
  1826. :LABEL176
  1827.     IF (VAR032="N") GOTO LABEL157
  1828.     FOPEN 1,PPEPATH()+"Q14.PV",O_RD,S_DN
  1829.     RETURN 
  1830.  
  1831.  
  1832. :LABEL177
  1833.     IF (VAR032="N") GOTO LABEL157
  1834.     FOPEN 1,PPEPATH()+"Q15.PV",O_RD,S_DN
  1835.     RETURN 
  1836.  
  1837.  
  1838. :LABEL178
  1839.     IF (VAR032="N") GOTO LABEL157
  1840.     FOPEN 1,PPEPATH()+"Q16.PV",O_RD,S_DN
  1841.     RETURN 
  1842.  
  1843.  
  1844. :LABEL179
  1845.     IF (VAR032="N") GOTO LABEL157
  1846.     FOPEN 1,PPEPATH()+"Q17.PV",O_RD,S_DN
  1847.     RETURN 
  1848.  
  1849.  
  1850. :LABEL180
  1851.     IF (VAR032="N") GOTO LABEL157
  1852.     FOPEN 1,PPEPATH()+"Q18.PV",O_RD,S_DN
  1853.     RETURN 
  1854.  
  1855.  
  1856. :LABEL181
  1857.     IF (VAR032="N") GOTO LABEL157
  1858.     FOPEN 1,PPEPATH()+"Q19.PV",O_RD,S_DN
  1859.     RETURN 
  1860.  
  1861.  
  1862. :LABEL182
  1863.     IF (VAR032="N") GOTO LABEL157
  1864.     FOPEN 1,PPEPATH()+"Q20.PV",O_RD,S_DN
  1865.     RETURN 
  1866.  
  1867.  
  1868. :LABEL183
  1869.     IF (VAR032="N") GOTO LABEL157
  1870.     FOPEN 1,PPEPATH()+"Q21.PV",O_RD,S_DN
  1871.     RETURN 
  1872.  
  1873.  
  1874. :LABEL184
  1875.     IF (VAR032="N") GOTO LABEL157
  1876.     FOPEN 1,PPEPATH()+"Q22.PV",O_RD,S_DN
  1877.     RETURN 
  1878.  
  1879.  
  1880. :LABEL185
  1881.     IF (VAR032="N") GOTO LABEL157
  1882.     FOPEN 1,PPEPATH()+"Q23.PV",O_RD,S_DN
  1883.     RETURN 
  1884.  
  1885.  
  1886. :LABEL186
  1887.     IF (VAR032="N") GOTO LABEL157
  1888.     FOPEN 1,PPEPATH()+"Q24.PV",O_RD,S_DN
  1889.     RETURN 
  1890.  
  1891.  
  1892. :LABEL187
  1893.     IF (VAR032="N") GOTO LABEL157
  1894.     FOPEN 1,PPEPATH()+"Q25.PV",O_RD,S_DN
  1895.     RETURN 
  1896.  
  1897.  
  1898. :LABEL188
  1899.     IF (VAR032="N") GOTO LABEL157
  1900.     FOPEN 1,PPEPATH()+"Q26.PV",O_RD,S_DN
  1901.     RETURN 
  1902.  
  1903.  
  1904. :LABEL189
  1905.     IF (VAR032="N") GOTO LABEL157
  1906.     FOPEN 1,PPEPATH()+"Q27.PV",O_RD,S_DN
  1907.     RETURN 
  1908.  
  1909.  
  1910. :LABEL190
  1911.     IF (VAR032="N") GOTO LABEL157
  1912.     FOPEN 1,PPEPATH()+"Q28.PV",O_RD,S_DN
  1913.     RETURN 
  1914.  
  1915.  
  1916. :LABEL191
  1917.     IF (VAR032="N") GOTO LABEL157
  1918.     FOPEN 1,PPEPATH()+"Q29.PV",O_RD,S_DN
  1919.     RETURN 
  1920.  
  1921.  
  1922. :LABEL192
  1923.     IF (VAR032="N") GOTO LABEL157
  1924.     FOPEN 1,PPEPATH()+"Q30.PV",O_RD,S_DN
  1925.     RETURN 
  1926.  
  1927.  
  1928. :LABEL193
  1929.     IF (VAR032="N") GOTO LABEL157
  1930.     FOPEN 1,PPEPATH()+"Q31.PV",O_RD,S_DN
  1931.     RETURN 
  1932.  
  1933.  
  1934. :LABEL194
  1935.     IF (VAR032="N") GOTO LABEL157
  1936.     FOPEN 1,PPEPATH()+"Q32.PV",O_RD,S_DN
  1937.     RETURN 
  1938.  
  1939.  
  1940. :LABEL195
  1941.     FGET 1,VAR046
  1942.     FGET 1,VAR002
  1943.     FGET 1,VAR003
  1944.     FGET 1,VAR033
  1945.     FGET 1,VAR006
  1946.     FGET 1,VAR034
  1947.     FGET 1,VAR007
  1948.     FGET 1,VAR035
  1949.     FGET 1,VAR008
  1950.     FGET 1,VAR036
  1951.     FGET 1,VAR009
  1952.     FGET 1,VAR037
  1953.     FGET 1,VAR010
  1954.     FGET 1,VAR038
  1955.     FGET 1,VAR011
  1956.     FGET 1,VAR039
  1957.     FGET 1,VAR012
  1958.     FGET 1,VAR040
  1959.     FGET 1,VAR013
  1960.     FGET 1,VAR041
  1961.     FGET 1,VAR014
  1962.     FGET 1,VAR042
  1963.     FGET 1,VAR015
  1964.     FCLOSE 1
  1965.     RETURN 
  1966.  
  1967.  
  1968. :LABEL196
  1969.     FPUTLN 1,VAR046
  1970.     FPUTLN 1,VAR002
  1971.     FPUTLN 1,VAR003
  1972.     FPUTLN 1,VAR033
  1973.     FPUTLN 1,VAR006
  1974.     FPUTLN 1,VAR034
  1975.     FPUTLN 1,VAR007
  1976.     FPUTLN 1,VAR035
  1977.     FPUTLN 1,VAR008
  1978.     FPUTLN 1,VAR036
  1979.     FPUTLN 1,VAR009
  1980.     FPUTLN 1,VAR037
  1981.     FPUTLN 1,VAR010
  1982.     FPUTLN 1,VAR038
  1983.     FPUTLN 1,VAR011
  1984.     FPUTLN 1,VAR039
  1985.     FPUTLN 1,VAR012
  1986.     FPUTLN 1,VAR040
  1987.     FPUTLN 1,VAR013
  1988.     FPUTLN 1,VAR041
  1989.     FPUTLN 1,VAR014
  1990.     FPUTLN 1,VAR042
  1991.     FPUTLN 1,VAR015
  1992.     FCLOSE 1
  1993.     RETURN 
  1994.  
  1995.  
  1996. :LABEL197
  1997.     CLS 
  1998.     PRINTLN 
  1999.     IF (VAR003>=1) PRINTLN " 1  ",VAR033
  2000.     IF (VAR003>=2) PRINTLN " 2  ",VAR034
  2001.     IF (VAR003>=3) PRINTLN " 3  ",VAR035
  2002.     IF (VAR003>=4) PRINTLN " 4  ",VAR036
  2003.     IF (VAR003>=5) PRINTLN " 5  ",VAR037
  2004.     IF (VAR003>=6) PRINTLN " 6  ",VAR038
  2005.     IF (VAR003>=7) PRINTLN " 7  ",VAR039
  2006.     IF (VAR003>=8) PRINTLN " 8  ",VAR040
  2007.     IF (VAR003>=9) PRINTLN " 9  ",VAR041
  2008.     IF (VAR003>=10) PRINTLN "10  ",VAR042
  2009.     RETURN 
  2010.  
  2011.  
  2012. :LABEL198
  2013.     IF (VAR004=1) LET VAR006=VAR006+1
  2014.     IF (VAR004=2) LET VAR007=VAR007+1
  2015.     IF (VAR004=3) LET VAR008=VAR008+1
  2016.     IF (VAR004=4) LET VAR009=VAR009+1
  2017.     IF (VAR004=5) LET VAR010=VAR010+1
  2018.     IF (VAR004=6) LET VAR011=VAR011+1
  2019.     IF (VAR004=7) LET VAR012=VAR012+1
  2020.     IF (VAR004=8) LET VAR013=VAR013+1
  2021.     IF (VAR004=9) LET VAR014=VAR014+1
  2022.     IF (VAR004=10) LET VAR015=VAR015+1
  2023.     RETURN 
  2024.  
  2025.  
  2026. ;------------------------------------------------------------------------------
  2027. ;Statements used:
  2028. ;
  2029. ;     4 END
  2030. ;     6 CLS
  2031. ;     3 WAIT
  2032. ;   406 GOTO
  2033. ;   248 LET
  2034. ;    78 PRINTLN
  2035. ;   429 IF
  2036. ;     1 DISPFILE
  2037. ;   193 FOPEN
  2038. ;    32 FAPPEND
  2039. ;   100 FCLOSE
  2040. ;   124 FGET
  2041. ;    55 FPUTLN
  2042. ;     1 GETUSER
  2043. ;    35 INPUTSTR
  2044. ;   193 GOSUB
  2045. ;    36 RETURN
  2046. ;     5 DELAY
  2047. ;     1 TOKENIZE
  2048. ;     2 GETTOKEN
  2049. ;     2 BEEP
  2050. ;
  2051. ;Functions used:
  2052. ;
  2053. ;   373 +
  2054. ;   311 =
  2055. ;    32 <
  2056. ;    32 <=
  2057. ;    34 >
  2058. ;    84 >=
  2059. ;    78 !
  2060. ;    64 &
  2061. ;    32 |
  2062. ;    70 LEN
  2063. ;    32 UPPER
  2064. ;     2 LEFT
  2065. ;    33 U_NAME
  2066. ;     1 MASK_ALPHA
  2067. ;    34 MASK_NUM
  2068. ;   257 PPEPATH
  2069. ;    32 EXIST
  2070. ;     1 S2I
  2071. ;
  2072. ;------------------------------------------------------------------------------
  2073. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  2074. ;------------------------------------------------------------------------------
  2075.